home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs05.d81 / evsbasic.arc / NONCONVEX.DMO (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  77 lines
  1. 100 (null)4:(null)13,1:(null)5,2,7
  2. 105 GOSUB1005
  3. 110 GOSUB1105
  4. 115 GOSUB1205
  5. 120 :
  6. 200 (null)15,15:(null)1:(null)
  7. 210 (null)55,105:(null)2:(null)
  8. 220 (null)146,144:(null)1:(null)
  9. 230 (null)FX,FY:(null)3:(null)
  10. 240 (null)195,13:(null)32
  11. 260 (null)180,50:(null)3:(null)128+32
  12. 270 :
  13. 300 A$=(null)(1)
  14. 310 (null)5
  15. 320 GOSUB1005
  16. 330 GOSUB1105
  17. 340 GOSUB1205
  18. 350 :
  19. 400 (null)15,15:(null)32
  20. 410 (null)55,105:(null)
  21. 420 (null)146,144:(null)20
  22. 430 (null)FX,FY:(null)50
  23. 440 (null)195,13:(null)128+32
  24. 450 (null)180,50:(null)"A"
  25. 460 :
  26. 800 A$=(null)(1)
  27. 805 (null)16
  28. 810 (null)14,6
  29. 815 (null)14,,14
  30. 820 END
  31. 825 :
  32. 1000 REM *H
  33. 1005 (null)20,20
  34. 1010 (null)30,20TO30,60TO50,60TO50,20TO60,20TO60,110
  35. 1015 (null)50,110TO50,70TO30,70TO30,110TO20,110TO20,20
  36. 1020 (null)10,10
  37. 1025 (null)70,10TO70,120TO10,120TO10,10
  38. 1030 RETURN
  39. 1035 :
  40. 1100 REM *SPIRAL
  41. 1105 DL(0)=0:DL(1)=-1:DL(2)=0:DL(3)=1
  42. 1110 DX=0:DY=1
  43. 1115 GOSUB1125
  44. 1120 DX=2:DY=3
  45. 1125 SL=4
  46. 1130 (null)150,140
  47. 1135 FORI=1TO14
  48. 1140 (null) (null)(0)+DL(DX)*SL,(null)(1)+DL(DY)*SL
  49. 1145 SL=8*I
  50. 1150 DX=DX+1+4*(DX=3)
  51. 1155 DY=DY+1+4*(DY=3)
  52. 1160 NEXT
  53. 1165 SL=SL-8
  54. 1170 (null) (null)(0)+DL(DX)*SL,(null)(1)+DL(DY)*SL
  55. 1175 DX=DX+1+4*(DX=3)
  56. 1180 (null) (null)(0)+DL(DX)*8,(null)(1)
  57. 1185 FX=(null)(0)+4:FY=(null)(1)+4
  58. 1190 RETURN
  59. 1195 :
  60. 1200 REM *ISLANDS
  61. 1205 SQ$=CHR$(10)+CHR$(0)+CHR$(0)+CHR$(10)
  62. 1210 SQ$=SQ$+CHR$(246)+CHR$(0)+CHR$(0)+CHR$(246)
  63. 1215 X=200:Y=15
  64. 1220 FORI=XTOX+90STEP30
  65. 1225 FORJ=YTOY+45STEP15
  66. 1230 (null)I,J
  67. 1235 (null)SQ$
  68. 1240 NEXT:NEXT
  69. 1245 FORI=X+15TOX+75STEP30
  70. 1250 FORJ=Y+5TOY+35STEP15
  71. 1255 (null)I,J
  72. 1260 (null)SQ$
  73. 1265 NEXT:NEXT
  74. 1270 (null)X-7,Y-5
  75. 1280 (null)X+107,Y-5TOX+107,Y+60TOX-7,Y+60TOX-7,Y-5
  76. 1285 RETURN
  77.